home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / mcode_01 / source / general / makedir.s < prev    next >
Encoding:
Text File  |  1995-04-27  |  1.2 KB  |  36 lines
  1. * Program     : Creates a directory
  2. * Author    : Stephen McNabb
  3. * Creation date : 16th February 1995
  4. * Last update    : 16th February 1995
  5. * Parameters    : Address of directory name
  6. * Output    : A negative value will be returned in d0 if the
  7. *          directory can not be created
  8.  
  9. start:    jsr    cls        /clear the screen
  10.     move.l    #direct,-(sp)    /move address of directory name to stack
  11.     move.w    #$39,-(sp)    /use Dcreate() function
  12.     trap    #1        /use gemdos
  13.     addq.l    #6,sp        /tidy up stack
  14.  
  15.     cmpi.b    #0,d0        /check to see if there was an error
  16.     blt    err        /if there is display an error message
  17.     
  18.     move.l    #success,d0    /else move address of success message into d0
  19.     bra    skip        /and skip the next line
  20. err:    move.l    #error,d0    /move address of error message into d0
  21. skip:    jsr    ptext        /display message on screen
  22.     
  23. end:    bra    exit        /exit from program
  24.  
  25.     include    "\SOURCE\FUNCTION.S"    /include standard functions
  26.     
  27. *** Program Data ***
  28.  
  29. direct:    dc.b    '\TEST',0        /name of directory to create
  30. success:dc.b    'Directory created',0    /success message
  31. error:    dc.b    'Error!',0        /error message
  32.  
  33. * Note : Do no put an extra '\' on the end of the directory string
  34. *      For some reason it doesn't work if you do
  35.  
  36. *** End of file ***